(term-mouse-paste): Call mouse-set-point.

diff --git a/lisp/term.el b/lisp/term.el
index b329004c0836c488f645078ffb3be196db20e4e6..b1144268a09ee03faa4c6ce8d7ca6924bb88c3de 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1172,6 +1172,7 @@ without any interpretation."
    ;; Give temporary modes such as isearch a chance to turn off.
    (run-hooks 'mouse-leave-buffer-hook)
    (setq this-command 'yank)
+   (mouse-set-point click)
    (term-send-raw-string (current-kill (cond
                                        ((listp arg) 0)
                                        ((eq arg '-) -1)